home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 September
/
CHIP Eylül 1998.iso
/
demolar
/
lokman
/
DISK1
/
_SETUP.3
/
Group1
/
Fetiket.exe
/
0
/
RCDATA
/
TETKTANIMFORM
/
TETKTANIMFORM.txt
< prev
Wrap
Text File
|
1998-07-13
|
26KB
|
1,017 lines
object EtkTANIMForm: TEtkTANIMForm
Left = 10
Top = 43
Width = 599
Height = 347
Caption = 'Etiket Tan�mlar�'
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Panel2: TPanel
Left = 0
Top = 0
Width = 591
Height = 320
Align = alClient
BevelInner = bvLowered
BorderWidth = 3
Caption = 'Panel2'
TabOrder = 0
object ScrollBox: TScrollBox
Left = 5
Top = 5
Width = 581
Height = 310
HorzScrollBar.Margin = 6
VertScrollBar.Margin = 6
Align = alClient
AutoScroll = False
BorderStyle = bsNone
Color = clSilver
ParentColor = False
TabOrder = 0
object Bevel7: TBevel
Left = 347
Top = 118
Width = 232
Height = 57
Style = bsRaised
end
object Bevel6: TBevel
Left = 1
Top = 214
Width = 343
Height = 95
Style = bsRaised
end
object Bevel5: TBevel
Left = 1
Top = 117
Width = 343
Height = 95
Style = bsRaised
end
object Bevel4: TBevel
Left = 347
Top = 58
Width = 232
Height = 57
Style = bsRaised
end
object Bevel3: TBevel
Left = 347
Top = 0
Width = 232
Height = 57
Style = bsRaised
end
object Bevel2: TBevel
Left = 1
Top = 58
Width = 343
Height = 57
Style = bsRaised
end
object Bevel1: TBevel
Left = 1
Top = 0
Width = 343
Height = 57
Style = bsRaised
end
object Label9: TLabel
Left = 69
Top = 165
Width = 119
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'TL Yerinin Uzakl���'
FocusControl = EditTLyeriSOL
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 33
Top = 189
Width = 154
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Ecz. Ad�n�n Yerinin Uzakl���'
FocusControl = EditEczYerSOL
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 4
Top = 2
Width = 337
Height = 14
Alignment = taCenter
AutoSize = False
Caption = 'YAZICI BA�LANGI� NOKTASI'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label13: TLabel
Left = 26
Top = 18
Width = 94
Height = 14
Caption = 'SAYFA �ST�NDEN'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 83
Top = 35
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label16: TLabel
Left = 218
Top = 18
Width = 93
Height = 14
Caption = 'SAYFA YANINDAN'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 348
Top = 2
Width = 229
Height = 14
Alignment = taCenter
AutoSize = False
Caption = 'B�R SAYFADA KA� S�T�N KA� SATIR VAR'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label17: TLabel
Left = 365
Top = 19
Width = 32
Height = 14
Caption = 'S�t�n'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 473
Top = 20
Width = 25
Height = 14
Caption = 'Sat�r'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 12
Top = 86
Width = 50
Height = 14
Caption = 'Etiket Eni'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 174
Top = 87
Width = 61
Height = 14
Caption = 'Etiket Boyu'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 123
Top = 86
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label25: TLabel
Left = 296
Top = 87
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label26: TLabel
Left = 348
Top = 60
Width = 229
Height = 14
Alignment = taCenter
AutoSize = False
Caption = 'ET�KETLER ARASI UZAKLIK'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label23: TLabel
Left = 366
Top = 75
Width = 34
Height = 14
Caption = 'Enden'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 421
Top = 94
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label22: TLabel
Left = 472
Top = 75
Width = 40
Height = 14
Caption = 'Boydan'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 529
Top = 94
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 275
Top = 35
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 4
Top = 60
Width = 337
Height = 14
Alignment = taCenter
AutoSize = False
Caption = 'ET�KET BOYUTLARI'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label4: TLabel
Left = 4
Top = 118
Width = 337
Height = 14
Alignment = taCenter
AutoSize = False
Caption = 'ET�KET YATAY TUTULDU�UNDA ETK.SOLUNDAN YAZI UZAKLI�I'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label5: TLabel
Left = 60
Top = 262
Width = 128
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'TL Yerinin Uzakl���'
FocusControl = EditTLyeriSOL
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 28
Top = 286
Width = 160
Height = 13
Alignment = taRightJustify
AutoSize = False
Caption = 'Ecz. Ad�n�n Yerinin Uzakl���'
FocusControl = EditEczYerSOL
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 4
Top = 216
Width = 337
Height = 14
Alignment = taCenter
AutoSize = False
Caption = 'ET�KET YATAY TUTULDU�UNDA ETK.�STT�NDEN YAZI UZAKLI�I'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label8: TLabel
Left = 6
Top = 238
Width = 182
Height = 14
Alignment = taRightJustify
AutoSize = False
Caption = 'Yaz�lacaksa �r�n Ad�n�n Uzakl���'
FocusControl = EditTLyeriSOL
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 6
Top = 138
Width = 182
Height = 14
Alignment = taRightJustify
AutoSize = False
Caption = 'Yaz�lacaksa �r�n Ad�n�n Uzakl���'
FocusControl = EditTLyeriSOL
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 348
Top = 120
Width = 229
Height = 14
Alignment = taCenter
AutoSize = False
Caption = 'SAYFA BOYUTLARI'
Color = clRed
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label28: TLabel
Left = 363
Top = 136
Width = 48
Height = 14
Caption = 'Geni�li�i'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 420
Top = 154
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label30: TLabel
Left = 476
Top = 136
Width = 58
Height = 14
Caption = 'Y�ksekli�i'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
object Label31: TLabel
Left = 532
Top = 154
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 248
Top = 140
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label33: TLabel
Left = 248
Top = 164
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label34: TLabel
Left = 248
Top = 188
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label35: TLabel
Left = 247
Top = 285
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label36: TLabel
Left = 247
Top = 261
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object Label37: TLabel
Left = 247
Top = 237
Width = 42
Height = 14
Caption = '(0.1 mm)'
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
end
object EditYBYukardan: TDBEdit
Left = 25
Top = 31
Width = 55
Height = 21
DataField = 'YBYukardan'
DataSource = DataSource1
MaxLength = 0
TabOrder = 0
end
object EditYBSoldan: TDBEdit
Left = 217
Top = 31
Width = 55
Height = 21
DataField = 'YBSoldan'
DataSource = DataSource1
MaxLength = 0
TabOrder = 1
end
object EditSKacSutun: TDBEdit
Left = 362
Top = 32
Width = 55
Height = 21
DataField = 'SKacSutun'
DataSource = DataSource1
MaxLength = 0
TabOrder = 2
end
object EditSKacSatir: TDBEdit
Left = 471
Top = 33
Width = 55
Height = 21
DataField = 'SKacSatir'
DataSource = DataSource1
MaxLength = 0
TabOrder = 3
end
object EditEtiketBoyu: TDBEdit
Left = 237
Top = 83
Width = 55
Height = 21
DataField = 'EtiketBoyu'
DataSource = DataSource1
MaxLength = 0
TabOrder = 4
end
object EditEtiketEni: TDBEdit
Left = 65
Top = 83
Width = 55
Height = 21
DataField = 'EtiketEni'
DataSource = DataSource1
MaxLength = 0
TabOrder = 5
end
object EditEtkAraUzEn: TDBEdit
Left = 362
Top = 90
Width = 55
Height = 21
DataField = 'EtkAraUzEn'
DataSource = DataSource1
MaxLength = 0
TabOrder = 6
end
object EditEtkAraUzBoy: TDBEdit
Left = 471
Top = 90
Width = 55
Height = 21
DataField = 'EtkAraUzBoy'
DataSource = DataSource1
MaxLength = 0
TabOrder = 7
end
object EditTLyeriSOL: TDBEdit
Left = 190
Top = 160
Width = 55
Height = 21
DataField = 'TLyeriSOL'
DataSource = DataSource1
MaxLength = 0
TabOrder = 8
end
object EditEczYerSOL: TDBEdit
Left = 190
Top = 184
Width = 55
Height = 21
DataField = 'EczYeriSOL'
DataSource = DataSource1
MaxLength = 0
TabOrder = 9
end
object BtnSakla: TBitBtn
Left = 484
Top = 242
Width = 75
Height = 25
Caption = 'Sakla'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = BtnSaklaClick
Glyph.Data = {
78010000424D7801000000000000760000002800000020000000100000000100
04000000000000000000120B0000120B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
555555FFFFFFFFFF5F5557777777777505555777777777757F55555555555555
055555555555FF5575F555555550055030555555555775F7F7F55555550FB000
005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
305555577F555557F7F5550E0BFBFB003055557575F55577F7F550EEE0BFB0B0
305557FF575F5757F7F5000EEE0BFBF03055777FF575FFF7F7F50000EEE00000
30557777FF577777F7F500000E05555BB05577777F75555777F5500000555550
3055577777555557F7F5550005555559995555777555555777550000}
NumGlyphs = 2
end
object BtnVazgec: TBitBtn
Left = 484
Top = 273
Width = 75
Height = 25
Caption = '&Kapat'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
Kind = bkClose
end
object DBRadioGroup1: TDBRadioGroup
Left = 486
Top = 178
Width = 83
Height = 49
Caption = 'Yaz�m Tipi'
Color = clSilver
DataField = 'PROrien'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
Items.Strings = (
'Dikey'
'Yatay')
ParentColor = False
ParentFont = False
TabOrder = 12
Values.Strings = (
'D'
'Y')
end
object DBRadioGroup2: TDBRadioGroup
Left = 350
Top = 178
Width = 131
Height = 49
Caption = 'Yaz�m Se�ene�i'
Color = clSilver
DataField = 'UrunVar'
DataSource = DataSource1
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
Items.Strings = (
'�r�n Ad� Yazd�rma'
'�r�n Ad� Yazd�r')
ParentColor = False
ParentFont = False
TabOrder = 13
Values.Strings = (
'H'
'E')
end
object EditEczYeriUST: TDBEdit
Left = 189
Top = 282
Width = 55
Height = 21
DataField = 'EczYeriUST'
DataSource = DataSource1
MaxLength = 0
TabOrder = 14
end
object EditTLyeriUST: TDBEdit
Left = 189
Top = 258
Width = 55
Height = 21
DataField = 'TLyeriUST'
DataSource = DataSource1
MaxLength = 0
TabOrder = 15
end
object EditUrunYeriUST: TDBEdit
Left = 189
Top = 234
Width = 55
Height = 21
DataField = 'UrunYeriUST'
DataSource = DataSource1
MaxLength = 0
TabOrder = 16
end
object EditUrunYeriSOL: TDBEdit
Left = 190
Top = 136
Width = 55
Height = 21
DataField = 'UrunYeriSOL'
DataSource = DataSource1
MaxLength = 0
TabOrder = 17
end
object EditSGen: TDBEdit
Left = 362
Top = 151
Width = 55
Height = 21
DataField = 'SayfaGenislik'
DataSource = DataSource1
MaxLength = 0
TabOrder = 18
end
object EditSYuk: TDBEdit
Left = 474
Top = 151
Width = 55
Height = 21
DataField = 'SayfaYukseklik'
DataSource = DataSource1
MaxLength = 0
TabOrder = 19
end
object BitBtn1: TBitBtn
Left = 368
Top = 271
Width = 89
Height = 25
Caption = 'Sayfa Tasla��'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 21
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 368
Top = 241
Width = 89
Height = 25
Caption = '�lk Tan�m� Yaz'
Font.Color = clNavy
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 22
OnClick = BitBtn2Click
end
object BitBtnFONT: TBitBtn
Left = 293
Top = 235
Width = 46
Height = 22
Hint = '�r�n Ad� Fontu'
Font.Color = clRed
Font.Height = -11
Font.Name = 'Arial Tur'
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 23
OnClick = BitBtnFONTClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00000000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FF3FFFFFFF33FFF003000000033
0000773777777733777703330033033330037FFF77F37F33377F700007330333
3003777777337FFFF77F303003337000007337F77F3377777773303073333033
003337F77F3337F377F337007333303300333777733337FF77F3330033333703
07333377F333377F7733330733333300033333773FF3F3777F33333399393300
033333337737FF777F333333339993307333333333777FF77333333333999930
3333333333777737333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
Layout = blGlyphBottom
NumGlyphs = 2
end
object Panel1: TPanel
Left = 310
Top = 0
Width = 267
Height = 267
BevelInner = bvLowered
BorderWidth = 3
Color = clBlack
TabOrder = 20
Visible = False
OnClick = BitBtn1Click
object Image1: TImage
Left = 5
Top = 5
Width = 257
Height = 256
Align = alTop
AutoSize = True
Picture.Data = {<image000.bmp>}
end
object Label38: TLabel
Left = 7
Top = 6
Width = 71
Height = 14
Alignment = taCenter
Caption = 'ESC. KAPAT'
Font.Color = clWhite
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
end
end
end
end
object DataSource1: TDataSource
DataSet = EtiketTAB
Left = 271
Top = 61
end
object EtiketTAB: TTable
DatabaseName = 'ECZ'
TableName = 'Etiket.db'
Left = 275
Top = 85
object EtiketTABYBYukardan: TSmallintField
FieldName = 'YBYukardan'
end
object EtiketTABYBSoldan: TSmallintField
FieldName = 'YBSoldan'
end
object EtiketTABSKacSutun: TSmallintField
FieldName = 'SKacSutun'
end
object EtiketTABSKacSatir: TSmallintField
FieldName = 'SKacSatir'
end
object EtiketTABEtiketBoyu: TSmallintField
FieldName = 'EtiketBoyu'
end
object EtiketTABEtiketEni: TSmallintField
FieldName = 'EtiketEni'
end
object EtiketTABEtkAraUzEn: TSmallintField
FieldName = 'EtkAraUzEn'
end
object EtiketTABEtkAraUzBoy: TSmallintField
FieldName = 'EtkAraUzBoy'
end
object EtiketTABTLyeriSOL: TSmallintField
FieldName = 'TLyeriSOL'
end
object EtiketTABTLyeriUST: TSmallintField
FieldName = 'TLyeriUST'
end
object EtiketTABEczYeriSOL: TSmallintField
FieldName = 'EczYeriSOL'
end
object EtiketTABEczYeriUST: TSmallintField
FieldName = 'EczYeriUST'
end
object EtiketTABUrunYeriSOL: TSmallintField
FieldName = 'UrunYeriSOL'
end
object EtiketTABUrunYeriUST: TSmallintField
FieldName = 'UrunYeriUST'
end
object EtiketTABPROrien: TStringField
FieldName = 'PROrien'
Size = 1
end
object EtiketTABUrunVar: TStringField
FieldName = 'UrunVar'
Size = 1
end
object EtiketTABSayfaGenislik: TSmallintField
FieldName = 'SayfaGenislik'
end
object EtiketTABSayfaYukseklik: TSmallintField
FieldName = 'SayfaYukseklik'
end
object EtiketTABFONTADI: TStringField
FieldName = 'FONTADI'
Size = 35
end
object EtiketTABFONTSIZE: TSmallintField
FieldName = 'FONTSIZE'
end
object EtiketTABCOLOR: TIntegerField
FieldName = 'COLOR'
end
object EtiketTABSTYLE: TStringField
FieldName = 'STYLE'
Size = 1
end
end
object FontDialog1: TFontDialog
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Device = fdBoth
MinFontSize = 1
MaxFontSize = 8
Options = [fdEffects, fdLimitSize]
Left = 286
Top = 166
end
end